'++LotusScript Development Environment:2:5:(Options):0:66

'++LotusScript Development Environment:2:5:(Forward):0:1
Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)

'++LotusScript Development Environment:2:5:(Declarations):0:2

'++LotusScript Development Environment:2:2:BindEvents:1:129
Private Sub BindEvents(Byval Objectname_ As String)
	Static Source As BUTTON
	Set Source = Bind(Objectname_)
	On Event Click From Source Call Click
End Sub

'++LotusScript Development Environment:2:2:Click:1:12
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
	
	Dim FullNameQuestion As String
	Dim FullNameResp As String
	Dim RPQuestion As REPEATINGPANEL
	Dim RPResp As REPEATINGPANEL
	
	Set RPResp=source.parent.Repeatingpanel
	Set RPQuestion=source.parent.Repeatingpanel1
	
	MainTableOfRepPanel FullNameQuestion, RPQuestion
	MainTableOfRepPanel FullNameResp, RPResp
	
	
	Dim CQ As New Connection
	Dim QQ As New Query
	Dim RQ As New ResultSet
	Dim CR As New Connection
	Dim QR As New Query
	Dim RR As New ResultSet
	
	PartID=source.SurveyNum.text
	
	If CQ.ConnectTo("dBASE IV") Then
		Set QQ.Connection = CQ
		QQ.Tablename = FullNameQuestion
		Set RQ.Query = QQ
		If (RQ.Execute) Then
			If CR.ConnectTo("dBASE IV") Then
				Set QR.Connection = CR
				QR.Tablename = FullNameResp
				Set RR.Query = QR
				If (RR.Execute) Then
					Do Until RQ.IsEndOfData
						data =RQ.GETVALUE (1)
						RR.Addrow
						RR.Setvalue 1,PartID
						RR.Setvalue 2,data
						RR.UPDATEROW
						RQ.NextRow  
					Loop
				End If
			End If
		End If
	End If
	RUNAPPROACHMACRO("Start Questionnaire")
End Sub